home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / DiskMaster / Rexx / DMMultiExec.rexx < prev    next >
OS/2 REXX Batch file  |  2002-10-27  |  1KB  |  59 lines
  1. /* $VER: DMMultiExec.rexx 1.3 (2.10.98) by J. Tierney
  2.  
  3.   DiskMaster II Multi-Execute  v1.3
  4.   10/2/97  J. Tierney
  5.  
  6.   Function:  Execute a command on selected files.
  7.  
  8.   Usage:  DMMultiExec.rexx <output (0|1)> <command>
  9.  
  10.   v1.3 (10/2/98)
  11.     - Changed to make use of new improved DirList.
  12.  
  13.   v1.2 (9/30/97)
  14.     - Added 512 (apx) line length limit.
  15.  
  16.   v1.1 (9/16/97)
  17.     - Added output option.
  18.  
  19.   v1.0 (9/14/97)
  20.  
  21. */
  22.  
  23. OPTIONS RESULTS
  24.  
  25. PARSE ARG output cmd
  26.  
  27. cmd = STRIP(cmd, 'B')
  28. IF output THEN DO
  29.   port = ADDRESS()
  30.   cmd = cmd '>"VNC:20/20/600/150/Output/CLOSE/AUTO/WAIT/SCREEN' port || '"'
  31.   END
  32. ELSE DO
  33.   out = ''
  34. END
  35. cmdlen = LENGTH(cmd)
  36.  
  37. line. = ''
  38. lc = 0
  39. linelen = cmdlen
  40. DIRLIST VAR dlist SEL
  41. DO i = 1 TO dlist.name.0
  42.   l = LENGTH(dlist.name.i)
  43.   linelen = linelen + l + 1
  44.   IF linelen > 510 THEN DO
  45.     lc = lc + 1
  46.     linelen = cmdlen
  47.   END
  48.   line.lc = line.lc dlist.name.i
  49. END
  50.  
  51. IF line.0 ~= '' THEN DO
  52.   STATUS P
  53.   PRAGMA('D', result)
  54.   DO i = 0 TO lc
  55.     ADDRESS COMMAND cmd line.i
  56.   END
  57.   DESELECT '*'
  58. END
  59.